home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Sources / MacC3.3 / M2EA.DEF < prev    next >
Encoding:
Text File  |  1992-05-29  |  1.7 KB  |  17 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE M2EA;  (* NW 19.5.83; HS 20.5.85 / 21.3.91 *)
  2.  
  3.   FROM M2DA IMPORT ObjPtr, ParPtr, Standard;
  4.   FROM M2HA IMPORT Item;
  5.   FROM M2SA IMPORT Symbol;
  6.  
  7.   CONST   wtabmax        =   4;
  8.           GlbVarStartAdr = -28;
  9.           LocVarStartAdr =   0;
  10.           GlbParStartAdr =  12;
  11.           LocParStartAdr =  12;
  12.  
  13.   VAR wlev: INTEGER;  (* WITH nesting level *)
  14.  
  15.   PROCEDURE AllocVar(obj: ObjPtr; VAR adr: INTEGER);
  16.   PROCEDURE AllocPar(par: ParPtr; VAR adr: INTEGER);
  17.   PROCEDURE AllocFld(obj: ObjPtr;